#!/usr/bin/perl

require './upgrade-lib.pl';

#&ReadParse();
#&ReadParseMime();

my ($version, $sv_mount_dev);
my ($istry, $timeleft);
$version = &get_current_version();

$sv_mount_dev = &get_sysvol_mount_dev();

$timeleft = &get_timeleft();

&header($text{'index_title'}, "", "", 0, 1);


print "<form name=form_index action=reg.cgi enctype=multipart/form-data method=post onsubmit='document.forms[0].upload.disabled=true;'>";

if($timeleft eq "F"){
	print "<p><b>Normal Version:$timeleft</b>";
}
elsif($timeleft > 0){
	print "<p><b>$text{'times'}:$timeleft</b>";
}
elsif($timeleft == 0){
	print "<p><b>0:$timeleft</b>";
}
if($timeleft ne "F"){
	print "<p><b>$text{'register_by_key'} </b><input type=text name=key class=text>";
	print "<p><input type=submit name=reg class=button1 value='$text{'register'}' onclick='return onclk_reg();'>";
}

print "</form>";

print <<EOF;
<script>
function onclk_reg()
{
#	document.forms[0].action = "reg.cgi";
}

</script>
EOF

&footer("/", $text{"index"});
